face-remap.el (text-scale-adjust): Call read-event with a proper prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19135944b17f551a58c3266d4975c04122964d5d..b8192344354f2f684b4c97eb6df855485b9d1248 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-20  Kenichi Handa  <handa@m17n.org>
+
+       * face-remap.el (text-scale-adjust): Call read-event with a proper
+       prompt.
+
 2010-10-15  Kenichi Handa  <handa@m17n.org>
 
        * international/characters.el: Add category '|' (word breakable)

diff --git a/lisp/face-remap.el b/lisp/face-remap.el
index c8fdfff85888c8e2b2c5d662e1b25de5d50cc8a0..4441c9557fbf2c648068c9d35ba0e9dd04b73bde 100644 (file)
--- a/lisp/face-remap.el
+++ b/lisp/face-remap.el
@@ -312,7 +312,7 @@ a top-level keymap, `text-scale-increase' or
       (when step
        (text-scale-increase step)
        (setq inc 1 first nil)
-       (setq ev (read-event))))
+       (setq ev (read-event "+,-,0 for further adjustment: "))))
     (push ev unread-command-events)))
 
 \f